home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 August / 1985-08.d64 / the last xither (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  348b  |  11 lines
  1. 5 print"[147]"
  2. 10 forl=54272to54295:pokel,0:next:poke54296,15
  3. 20 poke54277,8:poke54278,255:poke54276,23:f1=10
  4. 30 forz=1to24:f2=30:rem f2 = pitch, z = no. of cycles
  5. 40 poke54273,f1
  6. 50 fory=1to10:poke54287,f2:rem y controls speed
  7. 60 f2=f2*1.01:nexty:rem controls harmonic content
  8. 70 f1=f1+8:nextz:rem controls harmonic content
  9. 80 poke54278,15:rem change sustain-release to stop sound
  10. 90 list10-80
  11.